home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / nexttsrc.lha / nexttsources / sources / comp / primops / primop_build.doc < prev    next >
Encoding:
Text File  |  1988-02-05  |  4.6 KB  |  112 lines
  1. ;Below is the procedure for compiling the primops.
  2.  
  3. ;;; To compile system files that contain primops set *COMPILE-PRIMOPS?* to #F
  4. ;;; and ignore the "primops not compiled for this system" messages.
  5.  
  6. ;;; 68000
  7. ;;; Run this in a 68000 compiler.
  8.  
  9. (set (repl-env) orbit-env)
  10. (create-support '(t3_primops m68constants) '(t3_primops m68constants))
  11. (*define user-env 'make-empty-early-binding-locale
  12. make-empty-early-binding-locale)
  13. (load '(t3_primops m68constants t) orbit-env)
  14. (orbit-m68-setup 't3_primops)
  15. (orbit-init 'base)
  16. (set (orbit-syntax-table) primop-syntax-table)
  17. (set *compile-primops?* nil)
  18. (create-support '(t3_primops m68primops)   '(t3_primops m68primops))
  19. (create-support '(t3_primops m68arith)     '(t3_primops m68arith))
  20. (create-support '(t3_primops locations)    '(t3_primops locations))
  21. (create-support '(t3_primops m68low)       '(t3_primops m68low))
  22. (create-support '(t3_primops predicates)       '(t3_primops predicates))
  23. (orbit-init 'base  
  24.             'constants 'primops 'arith 'locations 'low 'predicates)
  25. (create-support '(t3_primops open)    '(t3_primops open))
  26. (create-support '(t3_primops aliases) '(t3_primops aliases))
  27. (create-support '(t3_primops carcdr)  '(t3_primops carcdr))
  28. (create-support '(t3_primops genarith)  '(t3_primops genarith))
  29.  
  30. ;;; To compile the primop code in the MINF files do the following:
  31. (compile-primop-source '(t3_primops m68primops   minf))
  32. (compile-primop-source '(t3_primops m68arith     minf))
  33. (compile-primop-source '(t3_primops locations    minf))
  34. (compile-primop-source '(t3_primops m68low       minf))
  35. (compile-primop-source '(t3_primops genarith    minf))
  36.  
  37. ;;; VAX
  38. ;;; Run this in any compiler (the back end is not called).
  39.  
  40.  
  41. (set (repl-env) orbit-env)
  42. (orbit-vax-setup 't3_primops)
  43. (create-support '(t3_primops vaxconstants) '(t3_primops vaxconstants))
  44. (load '(t3_primops vaxconstants t) orbit-env)
  45. (orbit-init 'base)
  46. (set (orbit-syntax-table) primop-syntax-table)
  47. (set *compile-primops?* nil)
  48. (create-support '(t3_primops vaxprimops)   '(t3_primops vaxprimops))
  49. (create-support '(t3_primops vaxarith)     '(t3_primops vaxarith))
  50. (create-support '(t3_primops locations)    '(t3_primops locations))
  51. (create-support '(t3_primops vaxlow)       '(t3_primops vaxlow))
  52. (create-support '(t3_primops predicates)       '(t3_primops predicates))
  53. (orbit-init 'base  
  54.             'constants 'primops 'arith 'locations 'low 'predicates)
  55. (create-support '(t3_primops open)    '(t3_primops open))
  56. (create-support '(t3_primops aliases) '(t3_primops aliases))
  57. (create-support '(t3_primops carcdr)  '(t3_primops carcdr))
  58. (create-support '(t3_primops genarith)  '(t3_primops genarith))
  59.  
  60.  
  61. ;;; Ready to COMFILE the VAX files.
  62.  
  63.  
  64. ;;; To compile the primop code in the VINF files, run the following in an
  65. ;;; Orbit for the machine on which you want to use the MINF.
  66. ;;; WARNING: if you COMFILE the VAX primop files in the same directory you
  67. ;;; will clobber the compiled versions of the VINF files.
  68. (compile-primop-source '(t3_primops vaxprimops   vinf))
  69. (compile-primop-source '(t3_primops vaxarith     vinf))
  70. (compile-primop-source '(t3_primops locations    vinf))
  71. (compile-primop-source '(t3_primops vaxlow       vinf))
  72. (compile-primop-source '(t3_primops genarith    minf))
  73.  
  74.  
  75.  
  76.  
  77. (set (repl-env) orbit-env)
  78. (orbit-sparc-setup 't3_primops)
  79. (create-support '(t3_primops spconstants) '(t3_primops spconstants))
  80. (load '(t3_primops spconstants t) orbit-env)
  81. (orbit-init 'base)
  82. (set (orbit-syntax-table) primop-syntax-table)
  83. (set *compile-primops?* nil)
  84. (create-support '(t3_primops spprimops)   '(t3_primops spprimops))
  85. (create-support '(t3_primops sparith)     '(t3_primops sparith))
  86. (create-support '(t3_primops locations)    '(t3_primops locations))
  87. (create-support '(t3_primops splow)       '(t3_primops splow))
  88. (create-support '(t3_primops predicates)       '(t3_primops predicates))
  89. (orbit-init 'base  
  90.             'constants 'primops 'arith 'locations 'low 'predicates)
  91. (create-support '(t3_primops open)    '(t3_primops open))
  92. (create-support '(t3_primops aliases) '(t3_primops aliases))
  93. (create-support '(t3_primops carcdr)  '(t3_primops carcdr))
  94. (create-support '(t3_primops spgenarith)  '(t3_primops spgenarith))
  95.  
  96.  
  97. ;;; Ready to COMFILE the SP files.
  98.  
  99.  
  100. ;;; To compile the primop code in the VINF files, run the following in an
  101. ;;; Orbit for the machine on which you want to use the MINF.
  102. ;;; WARNING: if you COMFILE the SP primop files in the same directory you
  103. ;;; will clobber the compiled versions of the VINF files.
  104. (compile-primop-source '(t3_primops spprimops   si))
  105. (compile-primop-source '(t3_primops sparith     si))
  106. (compile-primop-source '(t3_primops locations    si))
  107. (compile-primop-source '(t3_primops splow       si))
  108. (compile-primop-source '(t3_primops spgenarith    si))
  109.  
  110.  
  111.  
  112.